home *** CD-ROM | disk | FTP | other *** search
/ CYBER.XPO.95 / CYBER.XPO.95 (Arsenal Computer).ISO / popreq / amiga1 / amyelmv3.lha / c / EncryptMsg < prev    next >
AmigaDOS Script File  |  1994-04-16  |  1KB  |  41 lines
  1. .KEY cryptfile/A,cryptmode/A
  2. .BRA {
  3. .KET }
  4.  
  5. ;
  6. ; This is just an example...
  7. ;
  8.  
  9. ; do something with the message, e.g. encrypt it, and redirect
  10. ; input/output to actual screen (Elm's screen) for passwort prompts etc.
  11. ; variable {cryptmode} holds encryption-mode
  12. ;
  13. If "{cryptmode}" EQ "ENCRYPT"
  14.     Echo <>"CON:////IO-Window/CLOSE/AUTO/WAIT/SCREEN`GetActScreen`" Just encrypting {cryptfile} ({cryptmode})
  15.  
  16. Else
  17. If "{cryptmode}" EQ "SIGN"
  18.     Echo <>"CON:////IO-Window/CLOSE/AUTO/WAIT/SCREEN`GetActScreen`" Just signing {cryptfile} ({cryptmode})
  19.  
  20. Else
  21. If "{cryptmode}" EQ "ENCRYPT+SIGN"
  22.     Echo <>"CON:////IO-Window/CLOSE/AUTO/WAIT/SCREEN`GetActScreen`" Encrypting and signing {cryptfile} ({cryptmode})
  23.  
  24. ; we have 3 If's so we need 3 EndIf's
  25. EndIf
  26. EndIf
  27. EndIf
  28.  
  29. ;
  30. Copy <>"CON:////IO-Window/CLOSE/AUTO/WAIT/SCREEN`GetActScreen`" "{cryptfile}" T:encrypt.txt-$process
  31. ;
  32.  
  33. ; and now copy the encrypted message back
  34. ;
  35. Copy T:encrypt.txt-$process "{cryptfile}"
  36.  
  37. ; get rid of our temporary file
  38. ;
  39. Delete T:encrypt.txt-$process QUIET FORCE
  40.  
  41.